df_long <- df_num |>
select(c(patient_no,stage, age, weight, follow_up_months,
sys_blood_pressure, dia_blood_pressure,
serum_hemoglobin, serum_prostatic_acid_phosphatase,
combined_index, size_of_primary_tumor, is_alive, performance, medical_history,ekg, bone_metastases, treatment, dosage)) |>
pivot_longer(cols = c(stage, age, weight, follow_up_months,
sys_blood_pressure, dia_blood_pressure,
serum_hemoglobin, serum_prostatic_acid_phosphatase,
combined_index, is_alive, performance, medical_history,ekg, bone_metastases, treatment, dosage),
names_to = "variable",
values_to = "value")